procedure TForm1.Button1Click(Sender: TObject);
var
MyTextFile: TextFile;
S: String[15];
i: integer;
j: integer;
begin
AssignFile(MyTextFile, 'MyTextFile.txt');
Reset(MyTextFile);
try
while not Eof(MyTextFile) do
begin
Readln(MyTextFile, S, j);
Memo1.Lines.Add(S+IntToStr(j));
end;
finally
	CloseFile(MyTextFile);
end;
end;
